unit ListaCategoria;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit,
  cxDropDownEdit, FMTBcd, DB, DBClient, Provider, SqlExpr,
  cxInplaceContainer, cxDBTL, cxControls, cxTLData;

type
  TfrmListaCategorias = class(TForm)
    tlFluxo: TcxDBTreeList;
    tlFluxocxDBTreeListColumn2: TcxDBTreeListColumn;
    tlFluxocxDBTreeListColumn3: TcxDBTreeListColumn;
    sqlCategorias: TSQLDataSet;
    sqlCategoriasSequencial: TIntegerField;
    sqlCategoriasCodigo: TStringField;
    sqlCategoriasMae: TStringField;
    sqlCategoriasDescricao: TStringField;
    sqlCategoriasTipo: TStringField;
    dspCategorias: TDataSetProvider;
    cdsCategorias: TClientDataSet;
    cdsCategoriasSequencial: TIntegerField;
    cdsCategoriasCodigo: TStringField;
    cdsCategoriasMae: TStringField;
    cdsCategoriasDescricao: TStringField;
    cdsCategoriasTipo: TStringField;
    dsCategorias: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure tlFluxoDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    iCat:INteger;
    { Public declarations }
  end;

var
  frmListaCategorias: TfrmListaCategorias;

implementation
Uses M_Principal;
{$R *.dfm}

procedure TfrmListaCategorias.FormShow(Sender: TObject);
begin
  iCat:=0;
end;

procedure TfrmListaCategorias.tlFluxoDblClick(Sender: TObject);
begin
  iCat:=cdsCategorias.FieldByName('Sequencial').asInteger;
  Close;  
end;

end.
